teams <- c(rep("yankees", 40), rep("padres", 40), rep("mariners", 40), rep("dodgers", 40))
salary <- c(rnorm(40, mean = 25), rnorm(40, 16), rnorm(40, 23), rnorm(40, 15))
df <- data.frame(teams, salary)
head(df)
## teams salary ## 1 yankees 25.71814 ## 2 yankees 23.81254 ## 3 yankees 24.76974 ## 4 yankees 24.36423 ## 5 yankees 26.15637 ## 6 yankees 24.87422